home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.20010306-20010921 / 000295_dkcombs@panix.com_Fri Aug 10 10:40:47 EDT 2001.msg < prev    next >
Text File  |  2001-09-20  |  48KB  |  1,352 lines
  1. Article: 12650 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!panix!news.panix.com!not-for-mail
  3. From: dkcombs@panix.com (David Combs)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: REPOST of problem with beta: not dialing out (long)
  6. Date: 10 Aug 2001 08:07:49 GMT
  7. Organization: Public Access Networks Corp.
  8. Lines: 1333
  9. Message-ID: <9l04ol$k04$2@news.panix.com>
  10. References: <9k73c5$t61$1@panix2.panix.com>
  11. NNTP-Posting-Host: panix2.panix.com
  12. X-Trace: news.panix.com 997430869 20484 166.84.1.2 (10 Aug 2001 08:07:49 GMT)
  13. X-Complaints-To: abuse@panix.com
  14. NNTP-Posting-Date: 10 Aug 2001 08:07:49 GMT
  15. X-Newsreader: trn 4.0-test74 (May 26, 2000)
  16. Originator: dkcombs@panix.com (David Combs)
  17. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:12650
  18.  
  19. Please do not mark this post as "been read"
  20. until FRANK has had a chance to see it.
  21.  
  22. Thanks!
  23.  
  24. David
  25.  
  26. ============ REPOST OF SOMETHING NEVER RESPONDED TO:
  27.  
  28. (Just in case someone hit the wrong key and it
  29. got zapped before being looked at...)
  30.  
  31.  
  32. In article <9k73c5$t61$1@panix2.panix.com>,
  33. David Combs <dkcombs@panix.com> wrote:
  34. I tried the v8 beta (v7 beta?); it knew the
  35. modem was there (lights flashed a (very) few times),
  36. but no dial-tone sound, nothing.
  37.  
  38. Here's some files, and some runs.
  39.  
  40. Am totally LOST!
  41.  
  42. (But thatnks for all the help you've been giving.)
  43.  
  44. Remember: I'm using sparc5, solaris7, using panix.com.
  45.  
  46. I am no modem/communications guru -- am doing the best
  47. I can.
  48.  
  49. Anyway, here's my prepared file, also including a
  50. "script t.script" output (with the ENDING ^M's removed).
  51.  
  52. THANKS SO MUCH!
  53.  
  54. David Combs  914-632-1883
  55.  
  56.  
  57. (new rochelle)
  58.  
  59.  
  60.  
  61. -------------------------------------------------------------------------
  62. -------------------------------------------------------------------------
  63. -------------------------------------------------------------------------
  64.  
  65.  
  66.  
  67. NOTE that I am jumping directly FROM c-kermit-192 (version SIX) TO this
  68. V-8 BETA.
  69.  
  70.  
  71. NOTE: down at the BOTTOM is a run of each of the three:
  72.   /david3/from_netcom-dir1/kermit-stuff/8.0-beta--cku200b02/wermit -y kermrc-for-v7
  73.   /david3/from_netcom-dir1/kermit-stuff/8.0-beta--cku200b02/wermit -y .mykermrc-for-v7
  74.   runkermit -y .mykermrc-for-v6
  75.  
  76.  
  77. I downloaded this:
  78.  
  79.   -rw-------   1 dkc      staff    1963673 Jul 28 17:17 cku200b02.tar.gz
  80.  
  81. NOTED: no .kermrc or kermrc or .mykermrc was included.
  82.  
  83. ALSO: NO .ini, .doc, .bwr, or .hlp.
  84.  
  85. QUESTION: where do I get these from?
  86.  
  87.  
  88. First, here's the directory for the beta:
  89.  
  90.   /myexternals/david3/from_netcom-dir1/kermit-stuff/8.0-beta--cku200b02:
  91.   total 37184
  92.   drwxr-xr-x   2 dkc      staff       2048 Jul 28 21:31 .
  93.   drwxr-xr-x   3 dkc      staff       3072 Jul 28 22:08 ..
  94.   -rw-r--r--   1 dkc      staff       5515 Jan  1  2001 COPYING.TXT
  95.   -rw-r--r--   1 dkc      staff     163326 Jun 27 14:45 ck_crp.c
  96.   -rw-r--r--   1 dkc      staff       2627 Jan  3  2001 ck_des.c
  97.   -rw-r--r--   1 dkc      staff     119979 Jun 27 14:45 ck_ssl.c
  98.   -rw-r--r--   1 dkc      staff       2800 Apr 27 15:22 ck_ssl.h
  99.   -rw-r--r--   1 dkc      staff       2647 Jan  1  2001 ckcasc.h
  100.   -rw-r--r--   1 dkc      staff     127247 Jun  7 14:43 ckcdeb.h
  101.   -rw-r--r--   1 dkc      staff      96745 Jun 28 13:40 ckcfn2.c
  102.   -rw-r--r--   1 dkc      staff     136240 Jul 28 21:23 ckcfn2.o
  103.   -rw-r--r--   1 dkc      staff      74381 Jun 24 17:15 ckcfn3.c
  104.   -rw-r--r--   1 dkc      staff     105812 Jul 28 21:24 ckcfn3.o
  105.   -rw-r--r--   1 dkc      staff     201379 Jun 28 12:16 ckcfns.c
  106.   -rw-r--r--   1 dkc      staff     263064 Jul 28 21:23 ckcfns.o
  107.   -rw-r--r--   1 dkc      staff     393450 Jun 27 15:04 ckcftp.c
  108.   -rw-r--r--   1 dkc      staff     399120 Jul 28 21:31 ckcftp.o
  109.   -rw-r--r--   1 dkc      staff      42670 Jun 26 11:52 ckcker.h
  110.   -rw-r--r--   1 dkc      staff      71913 Jun 27 15:08 ckclib.c
  111.   -rw-r--r--   1 dkc      staff       3941 Jun 24 12:57 ckclib.h
  112.   -rw-r--r--   1 dkc      staff      64324 Jul 28 21:10 ckclib.o
  113.   -rw-r--r--   1 dkc      staff     116721 Jun 28 11:44 ckcmai.c
  114.   -rw-r--r--   1 dkc      staff     106964 Jul 28 21:10 ckcmai.o
  115.   -rw-r--r--   1 dkc      staff       7765 Dec  7  1999 ckcmdb.c
  116.   -rw-r--r--   1 dkc      staff     393807 Jun 29 10:42 ckcnet.c
  117.   -rw-r--r--   1 dkc      staff      36446 Jun 27 18:27 ckcnet.h
  118.   -rw-r--r--   1 dkc      staff     158136 Jul 28 21:27 ckcnet.o
  119.   -rw-r--r--   1 dkc      staff     108729 Jul 28 21:21 ckcpro.c
  120.   -rw-r--r--   1 dkc      staff     179648 Jul 28 21:22 ckcpro.o
  121.   -rw-r--r--   1 dkc      staff     101431 Jun 27 15:08 ckcpro.w
  122.   -rw-r--r--   1 dkc      staff       5841 Jan  1  2001 ckcsig.h
  123.   -rw-r--r--   1 dkc      staff        277 Jul 31  1999 ckcsym.h
  124.   -rw-r--r--   1 dkc      staff     268053 Jun 27 15:01 ckctel.c
  125.   -rw-r--r--   1 dkc      staff      41374 Jun  7 14:20 ckctel.h
  126.   -rw-r--r--   1 dkc      staff     222728 Jul 28 21:28 ckctel.o
  127.   -rw-r--r--   1 dkc      staff     742491 Jun 27 15:07 ckcuni.c
  128.   -rw-r--r--   1 dkc      staff       9306 Jan  1  2001 ckcuni.h
  129.   -rw-r--r--   1 dkc      staff     391520 Jul 28 21:30 ckcuni.o
  130.   -rw-r--r--   1 dkc      staff       9679 Jan  1  2001 ckcxla.h
  131.   -rw-r--r--   1 dkc      staff       1165 Sep  8  1999 ckpker.mk
  132.   -rw-r--r--   1 dkc      staff      11524 Dec 11  2000 ckuat2.h
  133.   -rw-r--r--   1 dkc      staff     367148 Jun 27 15:08 ckuath.c
  134.   -rw-r--r--   1 dkc      staff       7999 Sep 13  2000 ckuath.h
  135.   -rw-r--r--   1 dkc      staff     168165 Jun 28 12:23 ckucmd.c
  136.   -rw-r--r--   1 dkc      staff       8321 Jan  1  2001 ckucmd.h
  137.   -rw-r--r--   1 dkc      staff     197844 Jul 28 21:11 ckucmd.o
  138.   -rw-r--r--   1 dkc      staff      76326 Jun 27 15:09 ckucns.c
  139.   -rw-r--r--   1 dkc      staff     106048 Jul 28 21:25 ckucns.o
  140.   -rw-r--r--   1 dkc      staff      83328 Jun 27 15:09 ckucon.c
  141.   -rw-r--r--   1 dkc      staff     235961 Jun 27 15:09 ckudia.c
  142.   -rw-r--r--   1 dkc      staff     219244 Jul 28 21:26 ckudia.o
  143.   -rw-r--r--   1 dkc      staff     232005 Jun 29 10:36 ckufio.c
  144.   -rw-r--r--   1 dkc      staff     210076 Jul 28 21:26 ckufio.o
  145.   -rw-r--r--   1 dkc      staff      43347 Jun 29 11:18 ckupty.c
  146.   -rw-r--r--   1 dkc      staff       4369 Dec  5  1999 ckupty.h
  147.   -rw-r--r--   1 dkc      staff      48192 Jul 28 21:30 ckupty.o
  148.   -rw-r--r--   1 dkc      staff      18090 Jun 27 15:10 ckuscr.c
  149.   -rw-r--r--   1 dkc      staff      53832 Jul 28 21:27 ckuscr.o
  150.   -rw-r--r--   1 dkc      staff       7197 May  1 16:40 ckusig.c
  151.   -rw-r--r--   1 dkc      staff       2126 Jan  1  2001 ckusig.h
  152.   -rw-r--r--   1 dkc      staff      35300 Jul 28 21:28 ckusig.o
  153.   -rw-r--r--   1 dkc      staff     378786 Jun 27 15:10 ckutio.c
  154.   -rw-r--r--   1 dkc      staff     200600 Jul 28 21:25 ckutio.o
  155.   -rw-r--r--   1 dkc      staff     449194 Jun 28 12:13 ckuus2.c
  156.   -rw-r--r--   1 dkc      staff     362492 Jul 28 21:13 ckuus2.o
  157.   -rw-r--r--   1 dkc      staff     296253 Jun 25 15:27 ckuus3.c
  158.   -rw-r--r--   1 dkc      staff     305132 Jul 28 21:14 ckuus3.o
  159.   -rw-r--r--   1 dkc      staff     423784 Jun 27 18:52 ckuus4.c
  160.   -rw-r--r--   1 dkc      staff     411776 Jul 28 21:16 ckuus4.o
  161.   -rw-r--r--   1 dkc      staff     305198 Jun 27 15:55 ckuus5.c
  162.   -rw-r--r--   1 dkc      staff     294564 Jul 28 21:17 ckuus5.o
  163.   -rw-r--r--   1 dkc      staff     267272 Jun 28 12:26 ckuus6.c
  164.   -rw-r--r--   1 dkc      staff     329160 Jul 28 21:18 ckuus6.o
  165.   -rw-r--r--   1 dkc      staff     403774 Jun 27 16:05 ckuus7.c
  166.   -rw-r--r--   1 dkc      staff     295800 Jul 28 21:19 ckuus7.o
  167.   -rw-r--r--   1 dkc      staff     278269 Jun 27 17:40 ckuusr.c
  168.   -rw-r--r--   1 dkc      staff     100389 Jun 28 12:42 ckuusr.h
  169.   -rw-r--r--   1 dkc      staff     300684 Jul 28 21:12 ckuusr.o
  170.   -rw-r--r--   1 dkc      staff     232747 Jun 28 12:09 ckuusx.c
  171.   -rw-r--r--   1 dkc      staff     229316 Jul 28 21:20 ckuusx.o
  172.   -rw-r--r--   1 dkc      staff      94128 May  4 18:21 ckuusy.c
  173.   -rw-r--r--   1 dkc      staff     131216 Jul 28 21:21 ckuusy.o
  174.   -rw-r--r--   1 dkc      staff      20806 Mar 30 13:06 ckuver.h
  175.   -rw-r--r--   1 dkc      staff     269581 Jun 27 15:07 ckuxla.c
  176.   -rw-r--r--   1 dkc      staff       3861 Jan  1  2001 ckuxla.h
  177.   -rw-r--r--   1 dkc      staff     169016 Jul 28 21:24 ckuxla.o
  178.   -rw-r--r--   1 dkc      staff      16623 Apr 20  2000 ckwart.c
  179.   -rw-r--r--   1 dkc      staff      35208 Jul 28 21:21 ckwart.o
  180.   -rw-r--r--   1 dkc      staff     297066 Jun 28 19:02 makefile
  181.   -rwxr-xr-x   1 dkc      staff      38408 Jul 28 21:21 wart
  182.   -rwxr-xr-x   1 dkc      staff    4116196 Jul 28 21:31 wermit
  183.  
  184.  
  185.  
  186.  
  187. Down below you'll see these: .mykermrc-for-v{6,7} kermrc-for-v7
  188.  
  189.  (the "-for-v7" suffix lets me keep the files separate
  190.    and distinguishable; I run wermit with the "-y xxx" option.)
  191.  
  192.   The .mykermrc-for-v6 is the .mykermrc I used for v6 (c-kermit-192),
  193.    and is the one that *does* "work" and by which I am sending
  194.    this to you right now (but which in the daytime or during
  195.      when heavy load) I way too often get dropped. 
  196.  
  197.   (I haven't a clue where I got the two -v7 ones from --
  198.    probably your web site.  Note that I've added a few lines
  199.    from the old -v6 file).
  200.  
  201. QUESTION: when running v6, I have ONLY the ".mykermrc" (now with suffix
  202. "-for-v6): begins with a dot AND with a "my"; no other init
  203. file installed somewhere else.)
  204.  
  205. EXCEPT that within the directory where the binary is run from (and
  206. where I "built" the kermit), there are these three files:
  207.  
  208.   -rw-r--r--   1 dkc      staff      25066 Dec  3  1996 ckermit.ini
  209.   -rw-r--r--   1 dkc      staff       5828 Dec 19  1996 ckermod.ini
  210.   -rw-r--r--   1 dkc      staff       3815 Apr 14  1996 ckurzsz.ini
  211.  
  212.  
  213. QUESTION: probably you'll want me to get some files from some
  214. other version of kermit, ie non-Beta.
  215.  
  216. If so, WHICH FILES I should grab from there and copy over to this
  217. beta directory?
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229. ------------------------------------------ various init-files:
  230.  
  231. head -9000 .mykermrc-for-v{6,7} kermrc-for-v7 >> kermit.send
  232.  
  233.  
  234.  
  235.  
  236. ==> .mykermrc-for-v6 <==
  237. echo ""
  238. echo "------- ENTER .mykermrc::"
  239. echo "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  240. echo "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  241. echo "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  242. echo "  ---------------------------"
  243. echo "  ---------------------------"
  244. echo "  ---------------------------"
  245. # --------------------------------------------------------------------------
  246. # --------------------------------------------------------------------------
  247. # run fuser
  248. # set dial display on
  249. # show modem, show dial
  250. # dial 5099202
  251. echo "  PANIX DIAL-IN (Lower-Westchester) (914) 509-9202 (ie 5099202) <<==="
  252. echo "      (BUT to PHONE panix-hq PEOPLE: 212-741-4400)" 
  253. echo "           (x-1 service; x-4 tech spt; x-5 bill) "
  254. echo "      (I am: panix Customer # 00000-16967 David Combs)"
  255. set modem type usrobotics
  256. set line /dev/cua/a
  257. set speed 19200
  258. # or maybe 38400 or maybe even 57600.
  259. set speed 38400
  260. #set speed 57600 
  261. set file names literal
  262. set terminal autodownload on
  263. fast
  264. # Next, so that if craps out mid-transfer, can do a "resend":
  265. set file incomplete keep
  266. # At exit from ISP, then quit from kermit, run "fuser -u /dev/cua/a".
  267. # 28may01: -- we try panix' advice of adding "s32=66" to command string.
  268. #   kermit's show modem  gives "ATQ0X4&A3&N0&Y3\{13}" as cmd string,
  269. #   so we'll trying to set it to "ATQ0X4&A3&N0&Y3\{13}s32=66"
  270. set modem command init-string ATQ0X4&A3&N0&Y3\{13}s32=66
  271. echo "------- EXIT .mykermrc."
  272. echo ""
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286. ==> .mykermrc-for-v7 <==
  287. #!/usr/local/bin/kermit
  288. ; File CKERMOD.INI, Sample C-Kermit 7.0 customization file.
  289. ;
  290. ; This file, which is ONLY A SAMPLE, should be called:
  291. ;
  292. ;   .mykermrc   (UNIX, OS-9, Aegis, BeBox, Plan 9)
  293. ;   CKERMOD.INI (VMS, OpenVMS, AOS/VS, OS/2, Amiga, Atari ST)
  294. ;   ckermod.ini (Stratus VOS)
  295. ;
  296. ; MODify it to suit your needs and preferences, and install it in the same
  297. ; directory as your C-Kermit initialization file.  The design of this file
  298. ; lets you fill in a section for each different operating system where you run
  299. ; C-Kermit.  This file is executed automatically by the standard C-Kermit
  300. ; initialization file, CKERMIT.INI (or .kermrc).  See the manual, "Using
  301. ; C-Kermit", for further information.
  302. ;
  303. ; Authors:  Christine Gianone, Frank da Cruz, Jeffrey Altman,
  304. ;           The Kermit Project, Columbia University.
  305. ; Creation: 23 November 1992 for C-Kermit 5A(188).
  306. ; Modified: 30 June 1993 for edit 189.
  307. ;           04 October 1994 for edit 190.
  308. ;           17 April 1995 for edit 191.
  309. ;            6 September 1996 for version 6.0, edit 192.
  310. ;            1 January 2000 for version 7.0, edit 196.
  311.  
  312. ECHO
  313. ECHO Executing SAMPLE C-Kermit customization file \v(cmdfile) for \v(system)...
  314. ECHO { Please edit this file to reflect your needs and preferences.}
  315. ECHO
  316. ;
  317. ; ... and then remove the ECHO commands above.
  318.  
  319.  
  320.  
  321.  
  322. ; this block came from .mykermrc-for-v6: dkc:
  323. ; run fuser
  324. ; set dial display on
  325. ; show modem, show dial
  326. ; dial 5099202
  327. echo "  PANIX DIAL-IN (Lower-Westchester) (914) 509-9202 (ie 5099202) <<==="
  328. echo "      (BUT to PHONE panix-hq PEOPLE: 212-741-4400)" 
  329. echo "           (x-1 service; x-4 tech spt; x-5 bill) "
  330. echo "      (I am: panix Customer # 00000-16967 David Combs)"
  331.  
  332.  
  333. set line /dev/cua/a     ; dkc
  334.  
  335.  
  336. COMMENT - Settings that apply to all the systems I use:
  337. ;
  338. set delay 1                  ; I escape back quickly
  339. set dial display on          ; I like to watch C-Kermit dial
  340.  
  341. ; Dialing locale and method
  342. ;
  343. ; SET DIAL COUNTRY-CODE 1    ; Uncomment and replace with yours
  344. ; SET DIAL AREA-CODE 000     ; Uncomment and replace with yours
  345. ; SET DIAL LD-PREFIX 1       ; Uncomment and replace with yours
  346. ; SET DIAL INTL-PREFIX 011   ; Uncomment and replace with yours
  347. ; SET DIAL METHOD TONE       ; Uncomment and replace with PULSE if necessary
  348. ; SET DIAL DIRECTORY ... ... ; List dialing directory files here
  349.  
  350. ; File transfer preferences
  351. ;
  352.  FAST                       ; Uncomment to enable fast file transfer
  353. ; SET FILE TYPE BINARY       ; Uncomment to force binary-mode file transfer
  354.  SET FILE NAMES LITERAL     ; Uncomment to defeat filename conversion dkc
  355. ; SET SEND PATHNAMES ON      ; Uncomment to defeat send pathname stripping
  356. ; SET RECEIVE PATHNAMES ON   ; Uncomment to defeat receive pathname stripping
  357. ; SET EXIT WARNING OFF       ; Uncomment this to remove connection warnings
  358. ; SET TERMINAL APC ON        ; Uncomment to allow APC commands
  359.  SET TERM AUTODOWNLOAD ON   ; Uncomment to allow autodownload   dkc
  360.  
  361. if < \v(version) 600192 -
  362.   stop 1 \v(cmdfile): C-Kermit 6.0.192 or later required.
  363.  
  364. set take error on            ; Make errors fatal temporarily
  365. check if                     ; Do we have an IF command?
  366. set take error off           ; Yes we do, back to normal
  367.  
  368. ; The ON_EXIT macro is executed automatically when C-Kermit exits.
  369. ; Define as desired.
  370. ;
  371. define ON_EXIT echo Returning you to \v(system) now.
  372.  
  373. ; System-independent quick dialing macro.  Depends on having the
  374. ; macros MYMODEM, MYPORT, and (optionally) MYSPEED defined in the
  375. ; system-dependent sections below.
  376. ;
  377. define MYDIAL {
  378.     if not defined MYMODEM end 1 {\%0: Modem type not defined.}
  379.     set modem type \m(MYMODEM)
  380.     if fail end 1 {\%0: \m(MYMODEM): Unsupported modem type.}
  381.     if not defined MYPORT end 1 {\%0: Communication port not defined.}
  382.     set port \m(MYPORT)
  383.     if fail end 1 {\%0: SET PORT \m(MYPORT) failed.}
  384.     if defined MYFLOW set flow \m(MYFLOW)
  385.     if fail end 1 {\%0: SET FLOW \m(MYFLOW) failed.}
  386.     if defined MYSPEED set speed \m(MYSPEED)
  387.     if fail end 1 {\%0: SET SPEED \m(MYSPEED) failed.}
  388.     dial \%1\%2\%3\%4\%5\%6\%7\%8\%9
  389.     end \v(status)
  390. }
  391.  
  392. forward \v(system)              ; Go execute system-dependent commands
  393.  
  394. :UNIX                           ; UNIX, all versions...
  395. define MYPORT /dev/cua/a        ; My dialing environment   dkc: added "/a" suffix.
  396. define MYMODEM usrrobotics      ; Replace these by what you actually have.   dkc.
  397. define MYSPEED 57600
  398. ;
  399. ; If you want all your downloads to go to the same directory, no matter
  400. ; what your current directory is, uncomment and edit the following command:
  401. ;
  402. ;   set file download-directory ~/download ; Download directory for UNIX
  403.  
  404. ; Put other UNIX-specific commands here...
  405. end                             ; End of UNIX section
  406.  
  407. :VMS                            ; VMS and OpenVMS
  408. define MYPORT TXA0:             ; My dialing environment
  409. define MYMODEM usr              ; Replace these by what you actually have
  410. define MYSPEED 57600
  411. ; set file download-directory [\$(USER).DOWNLOAD] ; Download directory for VMS
  412. ; Put other VMS-specific commands here...
  413. end                             ; End of VMS section
  414.  
  415. :WIN32                          ; Windows and OS/2 customizations...
  416. :OS/2
  417. define MYPORT COM1              ; My dialing environment
  418. define MYMODEM usr              ; Replace these by what you actually have
  419. define MYSPEED 57600
  420. set command byte 8              ; Use 8 bits between Kermit and console
  421. set xfer char latin1            ; Use Latin-1 for text file transfer
  422. set term char latin1            ; And use Latin-1 during CONNECT mode
  423. ; set file download-directory C:\DOWNLOADS
  424. end
  425.  
  426. :OS9/68K                        ; OS-9/68000
  427. define MYPORT /t3               ; My dialing environment
  428. define MYMODEM usr              ; Replace these by what you actually have
  429. define MYSPEED 9600
  430. ; set file download-directory ~/downloads
  431. end                             ; End of OS-9 section
  432.  
  433. :AOS/VS                         ; Data General AOS/VS
  434. define MYPORT @con3             ; My dialing environment
  435. define MYMODEM usrobotics       ; Replace these by what you actually have dkc
  436. define MYSPEED 9600
  437. ; set file download-directory \v(home)DOWNLOADS
  438. end
  439.  
  440. ; And so on, you get the idea...
  441. ; Fill in the sections that apply to you.
  442.  
  443. :Stratus_VOS            ; Stratus VOS
  444. :Amiga                          ; Commodore Amiga
  445. :Atari_ST                       ; Atari ST
  446. :Macintosh                      ; Apple Macintosh
  447. :unknown                        ; Others
  448.  
  449.  
  450. ; dkc:
  451. # At exit from ISP, then quit from kermit, run "fuser -u /dev/cua/a".
  452. # 28may01: -- we try panix' advice of adding "s32=66" to command string.
  453. #   kermit's show modem  gives "ATQ0X4&A3&N0&Y3\{13}" as cmd string,
  454. #   so we'll trying to set it to "ATQ0X4&A3&N0&Y3\{13}s32=66"
  455. set modem command init-string ATQ0X4&A3&N0&Y3\{13}s32=66    ; dkc
  456.  
  457. ; (End of CKERMOD.INI)
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466. ==> kermrc-for-v7 <==
  467. #!/usr/local/bin/kermit
  468. COMMENT - Standard C-Kermit initialization file
  469. ;
  470. ; For C-Kermit Version: 7.0.196 (but can also be used by 6.0.192)
  471. ;
  472. ; Filename:
  473. ;   .kermrc     (UNIX, OS-9, Aegis)
  474. ;   CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
  475. ;   ckermit.ini (Stratus VOS)
  476. ;   K95.INI     (Kermit 95 -- but this big version is not used there)
  477. ;   K2.INI      (Kermit/2  -- but ditto)
  478. ;
  479. ; Authors:
  480. ;   Frank da Cruz, Christine M. Gianone, Jeffrey Altman
  481. ;   Columbia University, New York, NY 10025-7799, USA
  482. ;
  483. ; Version 5A(188): 23 November 1992
  484. ; Version 5A(189): 29 June 1993
  485. ; Version 5A(190): 04 October 1994
  486. ; Version 5A(191): 17 April 1995
  487. ; Version 6.0.192:  6 September 1996
  488. ; Version 7.0.196:  1 January 2000
  489. ;
  490. ; This is the standard and recommended C-Kermit 7.0 initialization file.  To
  491. ; override settings or definitions made in this file, to add new settings or
  492. ; definitions, or to make any other desired customizations, create a separate,
  493. ; personal customization file called:
  494. ;
  495. ;   .mykermrc     (UNIX, OS-9, Aegis, BeBox, Plan 9)
  496. ;   CKERMOD.INI   (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
  497. ;   ckermod.ini   (VOS)
  498. ;
  499. ; You can also define the customization filename in an environment
  500. ; variable (logical name in VMS), CKERMOD, which takes precedence over
  501. ; the names shown above.
  502. ;
  503. ; WHAT THIS FILE DOES:
  504. ;
  505. ; . The FULLSCREEN file transfer display is selected if it is available
  506. ; . Defines your default dialing directory name:
  507. ;     .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
  508. ;        You can override this with the environment variable K_DIAL_DIRECTORY
  509. ; . Defines your default network directory name:
  510. ;     .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
  511. ;        You can override this with the environment variable K_NET_DIRECTORY
  512. ; . Defines your default services directory name:
  513. ;     .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
  514. ;        You can override this with environment variable K_SERVICE_DIRECTORY.
  515. ; . Defines your customization file name (name given above)
  516. ; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
  517. ; . Defines an EDIT macro to let you invoke a text editor from C-Kermit.
  518. ; . Defines TSEND, BSEND, TGET, BGET macros for text and binary file transfer.
  519. ; . Defines VTPRINT, PCGET, and PCSEND macros for use with MS-DOS Kermit, etc.
  520. ; . Opens your dialing directory if you have one.
  521. ; . Reads your services directory and defines ACCESS and LIST macros for it.
  522. ; . Executes your personal customization file, if you have one.
  523. ;
  524. ; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
  525. ; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
  526. ; Butterworth-Heinemann, ISBN 1-55558-164-1.  Updates are described in the
  527. ; text file, ckermit2.txt.
  528.  
  529. ; Everything after this point depends on the script programming language.
  530. ; The CHECK command terminates this command file immediately if the script
  531. ; programming language (IF command) is not configured.
  532. ;
  533. set take error on        ; This makes CHECK quit if no script language.
  534. check if            ; Do we have an IF command?  If not, quit now.
  535. set take error off        ; Back to normal.
  536.  
  537. set line /dev/cua/a     ; dkc
  538.  
  539. local _sd _servicedir _xp       ; Declare local variables.
  540.  
  541. COMMENT - C-Kermit version 6.0 or later required.
  542. ;
  543.  
  544. asg _xp \v(xprogram)
  545. if not def _xp asg _xp \v(program)
  546. if not equal "\m(_xp)" "C-Kermit" -
  547.   stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
  548. echo Executing \v(cmdfile) for \v(system)...
  549. if < \v(version) 60000 -
  550.   stop 1 \v(cmdfile): C-Kermit 6.0 or later required.
  551.  
  552. forward \v(system)        ; First do system-dependent items...
  553.  
  554. :unknown            ; Should not happen
  555. Stop 1 Error: System type unknown!
  556.  
  557. :Aegis                ; Apollo Aegis and
  558. :UNIX                ; UNIX, all versions
  559. asg _myinit -
  560.   \v(home).mykermrc        ; Customization filename
  561. if remote forward COMMON        ; Skip local-mode items if "-R"
  562. asg _dialdir -
  563.   \v(home).kdd            ; C-Kermit dialing directory
  564. asg _netdir -
  565.   \v(home).knd            ; C-Kermit network directory
  566. asg _servicedir -
  567.   \v(home).ksd            ; C-Kermit services directory
  568. if \findex(IRIX,\v(platform)) -
  569.  set send packet-length 4000    ; Bug in IRIX Telnet server.
  570. forward COMMON                  ; End of UNIX section
  571.  
  572. :OS9/68K            ; OS-9
  573. asg _myinit -
  574.   \v(home).mykermrc        ; Customization filename
  575. if remote forward COMMON
  576. asg _dialdir -
  577.   \v(home).kdd            ; C-Kermit dialing directory
  578. asg _netdir -
  579.   \v(home).knd            ; C-Kermit network directory
  580. asg _servicedir -
  581.   \v(home).ksd            ; C-Kermit services directory
  582. if eq "\$(TERM)" "vt100" -      ; File transfer display
  583.   set file display full         ; Only works with VT-100 terminal type
  584. else if eq "\$(TERM)" "VT100" -
  585.   set file display full
  586. else set file display crt
  587. forward COMMON            ; End of OS-9 section
  588.  
  589. :VMS                ; VMS and OpenVMS
  590. forward COMMON
  591.  
  592. :OS/2                ; Kermit 95
  593. :WIN32
  594. echo This initialization file is not for use with K95.
  595. forward COMMON                  ; End of OS/2 section
  596.  
  597. :AOS/VS                ; Data General AOS/VS
  598. set window 1            ; Sliding windows don't work
  599. set file char dg-international    ; File character-set
  600. set xfer char latin1        ; Transfer character-set
  601. set file display crt            ; File transfer fisplay
  602. def cli push            ; Escape to CLI
  603. def reset -            ; Macro to reset DG DASHER terminal
  604.  run write [!ascii 236 306 301]
  605. forward COMMON                  ; End of AOS/VS section
  606.  
  607. :Amiga                ; Commodore Amiga
  608. def cls echo \27[H\27[2J    ; CLS command to clear the screen
  609. set file display full           ; Supports fullscreen display
  610. set file char latin1        ; Use Latin Alphabet 1 for file transfer
  611. set xfer char latin1        ; ...
  612. forward COMMON                  ; End of Amiga section
  613.  
  614. :Atari_ST            ; Atari ST
  615. def cls echo \27H\27J        ; Clear screen a`la VT52
  616. set file display crt        ; FULLSCREEN not available
  617. set server display on        ; Show file xfer display in server mode too
  618. set server timeout 15        ; Nonzero required for ^C interruption!
  619. forward COMMON                  ; End of Atari ST section
  620.  
  621. :Macintosh            ; Apple Macintosh
  622. set server display on        ; Show file xfer display in server mode too.
  623. forward COMMON
  624.  
  625. :Stratus_VOS                    ; Stratus VOS
  626. asg _myinit \v(home)ckermod.ini
  627. if remote forward COMMON
  628. asg _dialdir \v(home)ckermit.kdd
  629. asg _netdir \v(home)ckermit.knd
  630. asg _servicedir \v(home)ckermit.ksd
  631. set file display crt        ; FULLSCREEN not available
  632. forward COMMON                  ; End of Stratus VOS section
  633.  
  634. :COMMON                ; For all systems
  635.  
  636. ; Define macros that are useful when running C-Kermit in remote mode.
  637. ; These macros serve no purpose on local-mode-only versions such as
  638. ; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
  639. ; for those systems.
  640. ;
  641. if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
  642.   forward files
  643.  
  644. ; VTPRINT macro.  Print a file on your PC's local printer.
  645.  
  646. def VTPRINT echo \27[5i, type \%1, echo \27[4i
  647. ; or if your printer needs a formfeed to force the page out:
  648. ; def VTPRINT  def echo \27[5i, type \%1, echo \12\27[4i
  649.  
  650. ; Macros for host-initiated file transfer using APC:
  651. ;   NOT NEEDED ANY MORE because of autodownload/autoupload.
  652. ;   Remove the following FORWARD command to reinstate these definitions:
  653.  
  654. :FILES
  655.  
  656. ; Get customization and directory file names.  Environment variables take
  657. ; precedence, so you do not have to edit this file to change these filenames.
  658. ;
  659. if def \$(CKERMOD) assign _myinit \$(CKERMOD)
  660. if not def _myinit assign _myinit \v(home)CKERMOD.INI
  661.  
  662. if remote forward CUSTOM ; Skip all this if -R given on command line
  663.  
  664. if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
  665. if not def _netdir assign _netdir \v(home)CKERMIT.KND
  666.  
  667. if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
  668. if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD
  669.  
  670. CHECK DIAL            ; Is there a DIAL command?
  671. xif fail {             ; No.
  672.     echo DIAL disabled
  673.     forward CUSTOM
  674. }
  675.  
  676. CHECK NETWORK
  677. xif success {
  678.     xif exist \m(_netdir) {
  679.     set net directory \m(_netdir)
  680.     echo { Network directory is \m(_netdir) }
  681.     }
  682. }
  683.  
  684. if eq "\v(name)" "telnet" forward CUSTOM
  685.  
  686. xif exist \m(_dialdir) {
  687.     set dial directory \m(_dialdir)
  688.     echo { Dial directory is \m(_dialdir) }
  689. }
  690.  
  691. COMMENT - Services directory
  692.  
  693. if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
  694. if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD
  695.  
  696. if not exist \m(_servicedir) forward connection
  697. echo { Services directory is \m(_servicedir)}
  698.  
  699. def MAX_SVCS 200               ; Adjust this if you have more entries
  700. define _sd 0                   ; Assume no services directory
  701. open read \m(_servicedir)      ; Try to open services directory file
  702. xif success {
  703.     declare \&d[\m(MAX_SVCS)]  ; It's open, declare directory array
  704.     for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
  705.     read \&d[\%i]
  706.     if fail break
  707.     }
  708.     close read
  709.     xif > \%i  \m(MAX_SVCS) {
  710.     echo Too many entries in services directory
  711.     echo { Maximum is \m(MAX_SVCS).}
  712.     echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
  713.     echo { Services directory disabled.}
  714.     } else {
  715.         asg \&d[0] \feval(\%i - 1)
  716.         define _sd 1
  717.     }
  718. }
  719.  
  720. xif not \m(_sd) {
  721.     def access echo { Services directory not available.}
  722.     asg list \m(access)
  723. } else {
  724.     def FIND {
  725.     set case off
  726.     for \%i 1 \&d[0] 1 {
  727.         if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
  728.     }
  729.     if not > \%i \&d[0] return \&d[\%i]
  730.     }
  731.     def LIST {
  732.     xif > \v(argc) 1 {
  733.         find \%1
  734.         if def \v(return) echo \v(return)
  735.         else echo \%1: Not found
  736.     } else {
  737.         echo \&d[0] items in services directory:
  738.         for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
  739.     }
  740.     }
  741.     def SPLIT { asg _word1 \%1, asg _word2 \%2 }
  742.     def DOACCESS {               ; (Used internally by ACCESS macro)
  743.     do \%5 \%6 \%7 \%8 \%9   ; Do the connection macro
  744.     if fail end 1
  745.         split \%3                ; Get words from \%3
  746.     asg \%3 \m(_word1)
  747.     asg \%2 \m(_word2)
  748.     do \%3 \%4 {\%1} \%2     ; Login macro, userid, password, prompt
  749.     }
  750.     def ACCESS {
  751.     if not defined \%1 end 1 access what?        ; Check service
  752.     find \%1                                     ; Look it up
  753.     if success doaccess {\%2} \v(return)         ; OK, try it
  754.     else end 1 "\%1" not in services directory   ; Not found
  755.     if fail end 1                                ; DOACCESS failed?
  756.     xif eq \v(cmdlevel) 1 {
  757.         echo
  758.         echo ACCESS: Login succeeded - CONNECTing...
  759.             show escape
  760.             output \13
  761.         connect /quietly
  762.         }
  763.     }
  764. }
  765.  
  766. :CONNECTION ; Macros for making connections
  767.  
  768. COMMENT - SERIAL macro.  Arguments:
  769. ; \%1 = device name
  770. ; \%2 = speed
  771. ;
  772. def SERIAL {
  773.     if < \v(argc) 3                         ; All arguments given?
  774.       end 1 Usage: SERIAL device speed      ; No.
  775.     set line \%1                            ; OK, try to SET LINE.
  776.     if failure -                            ; If this failed,
  777.       end 1 Can't open device: \%1          ; print message and quit.
  778.     set speed \%2                           ; Try to set the speed.
  779.     if fail end 1 Unsupported speed: \%2    ; Failed.
  780.     echo Connection successful.             ; Succeeded.
  781. }
  782.  
  783. COMMENT - NET macro.  Arguments:
  784. ; \%1 = network type
  785. ; \%2 = host name or address
  786. ;
  787. def NET {
  788.     if < \v(argc) 3 end 1 Usage: NET network host
  789.     set network type \%1
  790.     if fail end 1 unsupported network: \%1
  791.     set login user                ; Don't send user ID.
  792.     set host \%2
  793.     if fail end 1 Can't reach host: \%2
  794.     echo Connection successful.
  795. }
  796.  
  797. COMMENT - CALL macro.  Arguments:
  798. ;
  799. ; \%1 = modem type
  800. ; \%2 = device name
  801. ; \%3 = speed
  802. ; \%4 = phone number
  803. ;
  804. def CALL {
  805.     if < \v(argc) 5 -         ; All arguments present?
  806.       end 1 Usage: CALL modem device speed number
  807.     xif not equal {\v(modem)} {\%1} { ; Set modem type
  808.         set modem \%1
  809.         if fail end 1 unknown modem type: \%1
  810.     }
  811.     xif not equal {\v(line)} {\%2} { ; Communication device
  812.         set line \%2
  813.         if fail end 1 can't open device: \%2
  814.     }
  815.     xif not equal {\v(speed)} {\%3} { ; Communication speed
  816.         set speed \%3
  817.         if fail end 1 unsupported speed: \%3
  818.     }
  819.     dial \%4                  ; Dial the number
  820.     if fail end 1 Can't place call: \%4
  821.     end 0 Connection successful.
  822. }
  823.  
  824. COMMENT - TCPCALL macro.  Arguments:
  825. ;
  826. ; \%1 = server name:port
  827. ; \%2 = modem type
  828. ; \%3 = phone number
  829. ;
  830. def TCPCALL {
  831.     if < \v(argc) 4 -         ; All arguments present?
  832.       end 1 Usage: TCPCALL server[:port] modem number
  833.     set net type tcp/ip       ; Which network to use
  834.     if fail end 1 unsupported network: tcp/ip
  835.     set host \%1              ; Access server and port
  836.     if fail end 1 can't access server \%1
  837.     set modem \%2             ; Set modem type
  838.     if fail end 1 unknown modem type: \%2
  839.     dial \%3                  ; Dial the number
  840.     if fail end 1 Can't place call: \%3
  841.     end 0 Connection successful.
  842. }
  843.  
  844. COMMENT - SPRINT macro.  Arguments:
  845. ; \%1 = Service name or address
  846. ;
  847. def SPRINT {
  848.     if < \v(argc) 2 end 1 Usage: \%0 service
  849.     set input timeout proceed
  850.     output @D\13
  851.     input 10 TERMINAL=
  852.     if fail end 1 No terminal prompt
  853.     out D1\13
  854.     inp 10 @
  855.     if fail end 1 No atsign prompt
  856.     output c \%1\13
  857.     input 10 CONNECTED
  858.     if fail end 1 Can't access \%1 from SprintNet
  859. }
  860.  
  861. COMMENT - ULOGIN macro.  For logging into systems where user ID is required
  862. ; but there is no password.  Arguments:
  863. ; \%1 = UNIX user ID
  864. ;
  865. define ULOGIN {
  866.     if < \v(argc) 2 end 1 Usage: \%0 userid
  867.     set input timeout proceed     ; Handle timeouts ourselves
  868.     set case on                   ; Case is important in UNIX
  869.     minput 5 login: Username: {User ID:} {User Name:}
  870.     out \%1\13                    ; Send username, carriage return
  871.     end 0
  872. }
  873.  
  874. COMMENT - VMSLOGIN macro.  Arguments:
  875. ; \%1 = VMS user ID
  876. ; \%2 = Password.  If password not supplied, it is prompted for.
  877. ; \%3 = System prompt.  If omitted a default is supplied.
  878. ;
  879. define VMSLOGIN {
  880.     if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
  881.     while not defined \%2 {
  882.         askq \%2 { \%1's password: }
  883.     }
  884.     set parity none               ; Set communication parameters
  885.     set duplex full
  886.     set handshake none
  887.     set input timeout proceed     ; Handle timeouts ourselves
  888.     in 5 Username:                ; Is prompt already there?
  889.     xif fail {                    ; No.
  890.         for \%i 1 3 1 {           ; Try 3 times to get it.
  891.             out \13               ; Send carriage return
  892.             in 5 Username:        ; Look for prompt
  893.             if success break      ; Success, go log in
  894.         }
  895.         if > \%i 3 end 1 No Username prompt
  896.     }
  897.     out \%1\13                    ; Send username, carriage return
  898.     inp 5 Password:               ; Wait 5 sec for this prompt
  899.     if fail end 1 No password prompt
  900.     pause                         ; Wait a sec
  901.     out \%2\13                    ; Send password
  902.     xif not emulation {           ; No emulator built in?
  903.         set input echo off        ; Protect terminal from this
  904.         minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
  905.         xif success {                     ; Got one
  906.             output \27[\?1c               ; Send VT100 terminal ID
  907.             in 2 \27[6n                   ; Screen dimension query?
  908.             if succ out \27[\v(rows);\v(cols)R ; Send dimensions
  909.         }
  910.         set input echo on         ; Echo input again
  911.     }
  912.     if not def \%3 -              ; If we were not given a prompt
  913.       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
  914.     if not def \%3 -              ; If we still don't have a prompt
  915.       asg \%3 {\13$\32}           ; use this one as the default
  916.     reinp 0 \%3                   ; Did we INPUT the prompt already?
  917.     if fail inp 60 \%3            ; No, look now.
  918.     if fail end 1
  919. }
  920.  
  921. COMMENT - UNIXLOGIN macro.  Arguments:
  922. ; \%1 = UNIX user ID
  923. ; \%2 = Password.  If password not supplied, it is prompted for.
  924. ; \%3 = System prompt.  If omitted a default is supplied.
  925. ;
  926. define UNIXLOGIN {
  927.     local \%m \%i
  928.     if < \v(argc) 2 -
  929.       end 1 Usage: \%0 userid [ password [ prompt ] ]
  930.     while not defined \%2 {
  931.         askq \%2 { \%1's password: }
  932.     }
  933.     set input echo on
  934.     set parity none               ; Set communication parameters.
  935.     set duplex full
  936.     set handshake none
  937.     set input timeout proceed     ; Handle timeouts ourselves
  938.     set case on                   ; Case is important in UNIX
  939.     def \%m 10                    ; Waiting time for INPUT
  940.     for \%i 1 5 1 {
  941.         minput \%m login: {ssword:} {Password for \%1:}
  942.     if success break
  943.     output \B\13
  944.         \%m ::= 6-\%1
  945.     }
  946.     if > \%i 5 end 1 {No response from host}
  947.     xif = \v(minput) 1 {      ; Have username prompt
  948.     output \%1\13          ; Send username
  949.         minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
  950.     if fail end 1 {No password prompt}
  951.     }
  952.     pause                         ; Wait a sec
  953.     out \%2\13                    ; Send password
  954.     if not def \%3 -              ; If we were not given a prompt
  955.       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
  956.     if not def \%3 -              ; If we still don't have a prompt
  957.       asg \%3 {\10$ }             ; use this one as the default
  958.     reinp 0 \%3                   ; Did we INPUT the prompt already?
  959.     if fail inp 60 \%3            ; No, look now.
  960.     if fail end 1
  961. }
  962.  
  963. COMMENT - VMLINELOGIN macro.  Arguments:
  964. ; \%1 = User ID
  965. ; \%2 = Password
  966. ;
  967. define VMLINELOGIN {
  968.     if < \v(argc) 2 -
  969.       end 1 Usage: \%0 userid [ password ]
  970.     while not defined \%2 {
  971.         askq \%2 { \%1's password: }
  972.     }
  973.     set parity mark               ; Set communication parameters
  974.     set flow none
  975.     set handshake xon
  976.     set duplex half
  977.     set input timeout quit        ; Don't bother with IF FAILURE
  978.     input 10 BREAK KEY            ; Look for BREAK KEY prompt
  979.     pause 1                       ; Wait a second
  980.     output \B                     ; Send BREAK
  981.     input 10 .\17, output logon \%1\13    ; Now log in
  982.     input 10 .\17, output \%2\13          ; Send password
  983.     input 10 .\17, output \13             ; Send carriage return
  984.     input 10 .\17, output \13             ; Send another one
  985.     end 0
  986. }
  987.  
  988. COMMENT - VMFULLOGIN macro.  Arguments:
  989. ; \%1 = User ID
  990. ; \%2 = Password
  991. ;
  992. define VMFULLOGIN {
  993.     if < \v(argc) 2 -
  994.       end 1 Usage: \%0 userid [ password ]
  995.     while not defined \%2 {
  996.         askq \%2 { \%1's password: }
  997.     }
  998.     set input timeout quit      ; Quit if INPUT fails
  999.     set parity even             ; Set communication parameters
  1000.     set duplex full
  1001.     set handshake none
  1002.     set flow xon/xoff
  1003.     out \13                     ; Send carriage return
  1004.     inp 5 TERMINAL TYPE:        ; Get terminal-type prompt
  1005.     out vt-100\13               ; Just send "vt-100"
  1006.     inp 20 RUNNING              ; Get RUNNING message
  1007.     pau 1                       ; Wait one second
  1008.     out \%1\9\%2\13             ; Send user ID, tab, password
  1009.     out \13\13                  ; Two more carriage returns
  1010.     end 0
  1011. }
  1012.  
  1013. COMMENT - CISLOGIN macro.  Arguments:
  1014. ; \%1 = CompuServe User ID
  1015. ; \%2 = Password
  1016. ; \%3 = Prompt
  1017. ;
  1018. define CISLOGIN {
  1019.     if < \v(argc) 2 -
  1020.       end 1 Usage: \%0 userid [ password [ prompt ] ]
  1021.     while not defined \%2 {
  1022.         askq \%2 { \%1's password: }
  1023.     }
  1024.     set terminal bytesize 7     ; No 8-bit characters
  1025.     set input timeout quit      ; Skip the IF FAILURE's
  1026.     output \13                  ; Send initial carriage return
  1027.     input 5 Host Name:          ; Look for Host Name prompt
  1028.     output cis\13               ; Send "cis" and carriage return
  1029.     input 5 User ID:            ; Look for User ID prompt
  1030.     output \%1\13               ; Send ID and carriage return
  1031.     input Password:             ; Look for Password prompt
  1032.     output \%2\13               ; Send password and CR
  1033.     if not def \%3 asg \%3 \v(prompt)
  1034.     if not def \%3 asg \%3 {CompuServe Information Service}
  1035.     input 30 \%3
  1036.     end 0
  1037. }
  1038.  
  1039. COMMENT - DOWLOGIN macro.  Arguments:
  1040. ; \%1 = Dow Jones Password
  1041. ;
  1042. define DOWLOGIN {
  1043.     while not defined \%1 {              ; Get password
  1044.         askq \%1 { Dow Jones password: }
  1045.     }
  1046.     set input timeout proceed
  1047.     input 20 SERVICE PLEASE\?\?\?\?      ; Look for Dow prompt
  1048.     if fail end 1 No service prompt
  1049.     out djnr\13                          ; Select DJNR
  1050.     input 10 @@@@@@@@                        ; Get password prompt
  1051.     if fail end 1 No password prompt
  1052.     pause 1                              ; Wait a second, then...
  1053.     output \%1\13                        ; send password and CR
  1054.     input 30 ENTER QUERY                 ; Get DJNR query prompt
  1055.     if fail end 1 No main query prompt
  1056.     pause 1
  1057. }
  1058.  
  1059. COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
  1060. ;
  1061. def djnrsprint sprint dow, if success dowlogin
  1062.  
  1063. COMMENT - NOLOGIN macro.  Does nothing.  Use when login not required.
  1064. ;
  1065. def nologin comment
  1066.  
  1067. :CUSTOM ; Customization file
  1068.  
  1069.  
  1070. ; In VMS and OpenVMS, allow for system-wide site customizations
  1071.  
  1072. xif equal "\v(system)" "VMS" {
  1073.     xif exist CKERMIT_INI:CKERMIT.SYS {
  1074.     echo Executing CKERMIT_INI:CKERMIT.SYS
  1075.     take CKERMIT_INI:CKERMIT.SYS
  1076.     }
  1077. }
  1078.  
  1079. ; Execute user's personal customization file
  1080.  
  1081. xif exist \m(_myinit)  {        ; If it exists,
  1082.     echo Executing \m(_myinit)...    ; print message,
  1083.     take \m(_myinit)            ; and TAKE the file.
  1084. }
  1085.  
  1086. ; Finish up with traditional greeting.
  1087.  
  1088. if < \v(ntime) 43200 echo Good Morning!
  1089.   else if < \v(ntime) 61200 echo Good Afternoon!
  1090.   else echo Good Evening.
  1091.  
  1092. End ; of C-Kermit 7.0 initialization file.
  1093.  
  1094.  
  1095.  
  1096.  
  1097.  
  1098.  
  1099.  
  1100.  
  1101.  
  1102.  
  1103.  
  1104.  
  1105. =============================== here is the run, t.script:
  1106.  
  1107.  
  1108.  
  1109.  
  1110. This is a run via doing the unix "script t.script".
  1111.  
  1112. (I left the "internal" ^M's, so you could see them). 
  1113.  
  1114.  
  1115.  
  1116.  
  1117.  
  1118.  
  1119.  
  1120. Script started on Tue Jul 31 15:51:55 2001
  1121. ====================== (as user=~) AM STARTING ~dkc/.cshrc:
  1122. STARTING /.CHSHRC-FOR-ALL-TO-RUN:
  1123. CSHDEPTH is now = 2
  1124. two
  1125. two.8
  1126. three
  1127. Yes, I see that file '/foo/cdsetprompt.csh' IS 'readable':
  1128.   Therefore, I now make 'cd' into an ALILAS, which EXPANSION is:
  1129. five
  1130. six
  1131. nine
  1132. STARTING ROOTS /.MYALIAS: ------ 
  1133.  
  1134.    STARTING .myalias_general ------ 
  1135. $: Command not found
  1136.  ------ ENDING .myalias-general
  1137.  
  1138. ENDING ROOTS /.MYALIAS
  1139. ENDING /.CSHRC-FOR-ALL-TO-RUN
  1140. (from .login, will now SOURCE-IN \~dkc/.myalias:
  1141. STARTING ~DKC/.MYALIAS: ------ 
  1142.  
  1143.    STARTING .myalias_general ------ 
  1144.  ------ ENDING .myalias-general
  1145.    STARTING ~dkc/.myalias_homeonly -----:ENDING ~dkc/.myalias_homeonly
  1146.    STARTING ~dkc/.myalias_4today -----:
  1147. ENDING ~dkc/.myalias_4today
  1148.  
  1149. \n
  1150. \n
  1151.  DON'T FORGET: if NOT single-user mode, DO source ~dkc/.myalias_extra:\n
  1152.  DON'T FORGET: if NOT single-user mode, DO source ~dkc/.myalias_extra:\n
  1153.  DON'T FORGET: if NOT single-user mode, DO source ~dkc/.myalias_extra:\n
  1154. \n
  1155. \n
  1156.  
  1157. ENDING ~DKC/.MYALIAS
  1158. NOW WILL SOURCE ~/.cshrc-more-for-today:
  1159. ONE: .cshrc-more-for-today AS OF 24mar98:
  1160. TWO
  1161. THREE
  1162. FOUR
  1163. FIVE
  1164. SIX
  1165. HAVE DONE ABSOLUTELY NOTHING in ~/.cshrc RE SOLARIS, FOR SET PROMPT.
  1166. ----- BE SURE AND DO: 'source .setpath4pwrtools'
  1167. ----- BE SURE AND DO: 'source .setpath4pwrtools'
  1168. ----- BE SURE AND DO: 'source .setpath4pwrtools'
  1169.  
  1170. .cshrc: now doing setenv of LESSHELP and MANPATH (for pwrTools):
  1171. Now doing: setenv LESSHELP
  1172. Now doing: setenv MANPATH
  1173. ================ ENDING ~dkc/.chsrc
  1174.  
  1175.  
  1176.  
  1177.  
  1178.  
  1179.  
  1180.  
  1181. 283 ==/myexternals/home/dkc==> ^Y^C
  1182. 283 ==/myexternals/home/dkc==> /david3/from_netcom-dir1/kermit-stuff/8.0-beta--cku200b02/wermit -y kermrc-for-v7
  1183. Executing kermrc-for-v7 for UNIX...
  1184. Executing /myexternals/home/dkc/.mykermrc...
  1185.  
  1186. Executing SAMPLE C-Kermit customization file /myexternals/home/dkc/.mykermrc for UNIX...
  1187.  Please edit this file to reflect your needs and preferences.
  1188.  
  1189. "  PANIX DIAL-IN (Lower-Westchester) (914) 509-9202 (ie 5099202) <<==="
  1190. "      (BUT to PHONE panix-hq PEOPLE: 212-741-4400)"
  1191. "           (x-1 service; x-4 tech spt; x-5 bill) "
  1192. "      (I am: panix Customer
  1193. Good Afternoon!
  1194. C-Kermit 8.0.200 Beta.02, 28 Jun 2001, for Solaris 7
  1195.  Copyright (C) 1985, 2001,
  1196.   Trustees of Columbia University in the City of New York.
  1197. Type ? or HELP for help.
  1198. (/myexternals/home/dkc/) C-Kermit>dial 5099202
  1199.  Trying: 5099202...
  1200.  Device: /dev/cua/a, modem: generic, speed: 9600
  1201.  Dial timeout: 70 seconds
  1202.  To cancel: type your interrupt character (normally Ctrl-C).
  1203.  Hangup OK
  1204.  Initializing: 15:53:02...
  1205. ATQ0V1
  1206. ATQ0V1ATQ0V1
  1207.  No response from modem, retrying...
  1208.  
  1209.  No response from modem, retrying again...
  1210. ATQ0V1
  1211. ATQ0V1
  1212.  No response from modem, retrying again...
  1213. ATQ0V1
  1214.  No response from modem, retrying again...
  1215.  Dialing: 15:53:17...
  1216. ATD5099202
  1217. DIAL Failure: 15:53:20: Interrupted.
  1218. (/myexternals/home/dkc/) C-Kermit>a q
  1219. Closing /dev/cua/a...OK
  1220. Returning you to UNIX now.
  1221. 284 ==/myexternals/home/dkc==> 
  1222. 284 ==/myexternals/home/dkc==> 
  1223. 284 ==/myexternals/home/dkc==> echo NOTE: a couple of lights on the modem were     flashed a time or two
  1224. NOTE: a couple of lights on the modem flashed a time or two
  1225. 285 ==/myexternals/home/dkc==> 
  1226. 285 ==/myexternals/home/dkc==> 
  1227.  
  1228.  
  1229.  
  1230.  
  1231.  
  1232. 285 ==/myexternals/home/dkc==> 
  1233. 285 ==/myexternals/home/dkc==> /david3/from_netcom-dir1/kermit-stuff/8.0-beta--cku200b02/wermit -y .mykermrc-for-v7
  1234.  
  1235. Executing SAMPLE C-Kermit customization file .mykermrc-for-v7 for UNIX...
  1236.  Please edit this file to reflect your needs and preferences.
  1237.  
  1238. "  PANIX DIAL-IN (Lower-Westchester) (914) 509-9202 (ie 5099202) <<==="
  1239. "      (BUT to PHONE panix-hq PEOPLE: 212-741-4400)"
  1240. "           (x-1 service; x-4 tech spt; x-5 bill) "
  1241. "      (I am: panix Customer
  1242. C-Kermit 8.0.200 Beta.02, 28 Jun 2001, for Solaris 7
  1243.  Copyright (C) 1985, 2001,
  1244.   Trustees of Columbia University in the City of New York.
  1245. Type ? or HELP for help.
  1246. (/myexternals/home/dkc/) C-Kermit>dial 5099202
  1247.  Trying: 5099202...
  1248.  Device: /dev/cua/a, modem: generic, speed: 9600
  1249.  Dial timeout: 70 seconds
  1250.  To cancel: type your interrupt character (normally Ctrl-C).
  1251.  Hangup OK
  1252.  Initializing: 15:54:23...
  1253. ATQ0V1
  1254. ATQ0V1ATQ0V1
  1255.  No response from modem, retrying...
  1256.  
  1257.  No response from modem, retrying again...
  1258. ATQ0V1
  1259. ATQ0V1
  1260.  No response from modem, retrying again...
  1261. ATQ0V1
  1262.  No response from modem, retrying again...
  1263.  Dialing: 15:54:38...
  1264. ATD5099202
  1265. DIAL Failure: 15:54:44: Interrupted.
  1266. (/myexternals/home/dkc/) C-Kermit>q
  1267. Closing /dev/cua/a...OK
  1268. Returning you to UNIX now.
  1269. 286 ==/myexternals/home/dkc==> 
  1270. 286 ==/myexternals/home/dkc==> 
  1271. 286 ==/myexternals/home/dkc==> 
  1272. 286 ==/myexternals/home/dkc==> 
  1273.  
  1274.  
  1275.  
  1276.  
  1277.  
  1278. 286 ==/myexternals/home/dkc==> aliasx^? ^C
  1279. 286 ==/myexternals/home/dkc==> alias runkermit
  1280. /david3/from_netcom-dir2/sources-stuff/c-kermit-192/wermit !*
  1281. 287 ==/myexternals/home/dkc==> run^?^?^?^C
  1282. 287 ==/myexternals/home/dkc==> 
  1283.  
  1284.  
  1285.  
  1286.  
  1287. 287 ==/myexternals/home/dkc==> runkermit -y .mykermrc-for-v6
  1288. ""
  1289. "------- ENTER .mykermrc::"
  1290. "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  1291. "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  1292. "  HELLO David, this is the LOCAL LOCAL LOCAL LOCAL .mykermrc!"
  1293. "  ---------------------------"
  1294. "  ---------------------------"
  1295. "  ---------------------------"
  1296. "  PANIX DIAL-IN (Lower-Westchester) (914) 509-9202 (ie 5099202) <<==="
  1297. "      (BUT to PHONE panix-hq PEOPLE: 212-741-4400)"
  1298. "           (x-1 service; x-4 tech spt; x-5 bill) "
  1299. "      (I am: panix Customer
  1300. "------- EXIT .mykermrc."
  1301. ""
  1302. C-Kermit 6.0.192, 6 Sep 96, for Solaris 2.x
  1303.  Copyright (C) 1985, 1996,
  1304.   Trustees of Columbia University in the City of New York.
  1305. Default file-transfer mode is TEXT
  1306. Type ? or HELP for help.
  1307. [/myexternals/home/dkc] C-Kermit>dial 5099202
  1308.  Trying: 5099202...
  1309.  Device: /dev/cua/a, modem: usrobotics, speed: 38400
  1310.  Dial timeout: 42 seconds
  1311.  To cancel: type your interrupt character (normally Ctrl-C).
  1312.  Call complete.
  1313. Connecting to /dev/cua/a, speed 38400.
  1314. The escape character is Ctrl-\ (ASCII 28, FS)
  1315. Type the escape character followed by C to get back,
  1316. or followed by ? to see other options.
  1317.  
  1318.  
  1319.  
  1320. Annex Command Line Interpreter   *   Copyright (C) 1988, 2000 Nortel Networks
  1321.  
  1322. For access to Panix, type "panix" at the prompt.
  1323.  
  1324. For info about panix or to sign up, type "help".
  1325. For dialup-IP, type "PPP" now.
  1326. If you can't log in type "trouble".
  1327.  
  1328. Which service, please?
  1329. ^C^C^C
  1330. CLI: Command not found.
  1331.  
  1332. For access to Panix, type "panix" at the prompt.
  1333.  
  1334. For info about panix or to sign up, type "help".
  1335. For dialup-IP, type "PPP" now.
  1336. If you can't log in type "trouble".
  1337.  
  1338. Which service, please?
  1339.  
  1340. (Back at cpml)
  1341. [/myexternals/home/dkc] C-Kermit>quit
  1342.  A serial connection might still be active on /dev/cua/a.
  1343. OK to exit? no
  1344. [/myexternals/home/dkc] C-Kermit>quit
  1345.  A serial connection might still be active on /dev/cua/a.
  1346. OK to exit? y
  1347. 288 ==/myexternals/home/dkc==> exit
  1348. 289 ==/myexternals/home/dkc==> 
  1349. script done on Tue Jul 31 15:56:20 2001
  1350.  
  1351.  
  1352.